home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 4 / developer source - volume 4.iso / parad / feb95 / lc_fig12.gif

< prev

next >

Graphics Interchange Format  |  1996-07-10  |  10KB  |  588x420  |  4-bit (5 colors)

Labels: text | electronics | screenshot | display | software | number | font
OCR: DDE-EXP.FSL :: #Form1 :: menuAction* method menuAction(var eventInfo MenuEvent) var likey LongInt endVar if eventInfo.isPreFilter() then else if eventInfo.id() = MenuControlKeyMenu then ; User hit Alt+some key. Save the ASCII value of the key. likey = eventInfo.data() ; Check the dynarray for use of that key, ; in combination with "Alt" if dyKeys .contains("Alt+"+upper (chr(Smallint (likey) ) )) then disableDefault dykeys["Alt+"+upper(chr(Smallint(likey) ) )] .mouseClick( ) endIf end If endIf endmethod Edit Line: 7 Col: 1

---